﻿Module Module1
  Public Property attivo()
    Get
      ' fai qualcosa ...
    End Get
    Set(ByVal value)
      ' fai qualcosa...
    End Set
  End Property

  Private m_Cognome As String
  Private m_Nome As String
  Public ReadOnly Property leggiNominativo()
    Get
      leggiNominativo = m_Cognome & " " & _
          m_Nome
    End Get
  End Property

  Public WriteOnly Property scriviNome()
    Set(ByVal value)
      m_Nome = value
    End Set
  End Property

  Sub Main()

  End Sub
End Module
